unit TAgent;

interface

uses
  Windows, Classes, SysUtils, uDataTransferObject, uBasicDAOAdapter;

type
  TAgentVO = class(TDataTransferObject)
  private
    FAgentId: string;
    FParentAgentId: string;
    FName: string;
    FLevel:String;
    FPhone:String;
    FAddr:String;
    FManagerName:String;
    FInfo1:String;
    FInfo2:String;    
  published
    property PK_agent_id: string index 0 read FAgentId write FAgentId;
    property parent_agent_id: string index 1 read FParentAgentId write FParentAgentId;
    property name: String index 2 read FName write FName;
    property level: String index 3 read FLevel write FLevel;
    property phone: string index 4 read FPhone write FPhone;
    property addr: string index 5 read FAddr write FAddr;
    property manager_name: string index 6 read FManagerName write FManagerName;
    property info1: string index 7 read FInfo1 write FInfo1;
    property info2: string index 8 read FInfo2 write FInfo2;
  public
    constructor Create;
    procedure Reset();
  end;

implementation

constructor TAgentVO.Create;
begin
  inherited Create;
  tbName := 'inf_agent';
  SetLength(GridInfo, 5);
end;

procedure TAgentVO.Reset();
begin
  FAgentId := '';
  FParentAgentId := '';
  FName := '';
  FLevel:= '';
  FPhone:= '';
  FAddr := '';
  FManagerName:= '';
  FInfo1:= '';
  FInfo2:= '';
end;

end.
